1 OPEN1,8,15:C$=CHR$(4)+CHR$(30):FORI=1TO9:FORJ=1TO30:READB:A$(I)=A$(I)+CHR$(B):NEXTJ,I:FORI=1TO9:PRINT#1,"M-W"CHR$((I-1)*30)C$A$(I):NEXT:PRINT#1,"M-E"CHR$(28)CHR$(4):END:DATA166,133,173,0,28,105,1,24,41,3,9,4,141,0,28,164:DATA134,136,208,253,202,208,235,198,135,208,229,96,32,75,4,234
2 DATA162,0,189,100,4,133,134,189,183,4,133,135,138,72,32,85:DATA4,104,170,232,224,83,208,3,76,28,4,173,0,24,240,226:DATA169,0,141,0,28,169,192,141,14,28,96,169,18,133,133,169:DATA127,141,14,28,96,32,0,4,169,1,133,134,169,50,133,135:DATA32,0,4,96
3 DATA180,105,120,135,120,135,160,180,220,1,1,180,105,120,135,135:DATA145,135,120,1,1,180,105,120,135,120,135,160,180,220,1,1:DATA180,160,120,135,145,160,145,135,1,1,1,1,180,135,1,1:DATA160,120,1,1,145,145,145,145,160,145,135,1,120,105,1,1
4 DATA180,135,1,1,160,120,1,1,145,145,145,145,160,145,135,1:DATA1,1,1:DATA50,30,25,20,25,20,20,17,35,255,255,20,30,25,25,25,20:DATA25,60,255,255,20,30,25,20,25,20,20,17,35,255,255,20:DATA20,25,25,20,17,20,65,255,255,255,255,50,60,100,100,50
5 DATA60,100,100,20,20,20,20,20,20,50,20,20,50,255,255,50:DATA60,100,100,50,60,100,100,20,20,20,20,20,20,100,255,255:DATA0,0,0,0,0,0,0,0